home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / move & fill (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  211 lines
  1. 0 rem move & fill (june 18/85)        :
  2. 1 :
  3. 2 rem 2 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 8
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem move        mov      8174    118
  9. 8 rem fill        stuf     8504    119
  10. 9 :
  11. 10 rem u/mvmem (8250/120)
  12. 11 rem u/memfil (8416/121)
  13. 12 :
  14. 13 rem ================================
  15. 14 :
  16. 133 .asc "mov[197]fil[204]"
  17. 1133 .word mov-1,stuf-1
  18. 8174 mov jsr $ad8a
  19. 8176 jsr $b7f7
  20. 8178 sta mvstrt+1
  21. 8180 sty mvstrt
  22. 8182 jsr $79
  23. 8184 pha
  24. 8186 jsr $73
  25. 8188 jsr $ad8a
  26. 8190 jsr $b7f7
  27. 8192 pha
  28. 8194 tya
  29. 8196 pha
  30. 8198 jsr $aefd
  31. 8200 jsr $ad8a
  32. 8202 sta mvdest+1
  33. 8204 sty mvdest
  34. 8206 pla
  35. 8208 tay
  36. 8210 pla
  37. 8212 tax
  38. 8214 pla
  39. 8216 cmp #";"
  40. 8218 beq mvc1
  41. 8220 stx mvend+1
  42. 8222 sty mvend
  43. 8224 cmp #","
  44. 8226 beq mvm2
  45. 8228 jmp $af08
  46. 8230 mvc1 clc
  47. 8232 tya
  48. 8234 adc mvstrt
  49. 8236 sta mvend
  50. 8238 txa
  51. 8240 adc mvstrt+1
  52. 8242 sta mvend+1
  53. 8244 bcc mvmem
  54. 8246 jmp $b248
  55. 8248 ;
  56. 8250 mvmem lda mvend
  57. 8252 bne mvm1
  58. 8254 dec mvend+1
  59. 8256 mvm1 dec mvend
  60. 8258 ;
  61. 8260 mvm2 lda mvstrt
  62. 8262 sta $22
  63. 8264 lda mvdest
  64. 8266 sta $24
  65. 8268 lda mvend+1
  66. 8270 cmp mvstrt+1
  67. 8272 bcc mvm5
  68. 8274 bne mvm3
  69. 8276 lda mvend
  70. 8278 cmp mvstrt
  71. 8280 bcc mvm5
  72. 8282 mvm3 lda mvdest+1
  73. 8284 cmp mvstrt+1
  74. 8286 bcc dmvmem
  75. 8288 bne umvmem
  76. 8290 lda $24
  77. 8292 cmp $22
  78. 8294 beq mvm5
  79. 8296 bcc dmvmem
  80. 8298 umvmem lda mvend
  81. 8300 sec
  82. 8302 sbc mvstrt
  83. 8304 tay
  84. 8306 lda mvend+1
  85. 8308 sbc mvstrt+1
  86. 8310 pha
  87. 8312 clc
  88. 8314 adc mvstrt+1
  89. 8316 sta $23
  90. 8318 pla
  91. 8320 clc
  92. 8322 adc mvdest+1
  93. 8324 sta $25
  94. 8326 mvm4 lda ($22),y
  95. 8328 sta ($24),y
  96. 8330 dey
  97. 8332 cpy #$ff
  98. 8334 bne mvm4
  99. 8336 lda $23
  100. 8338 cmp mvstrt+1
  101. 8340 beq mvm5
  102. 8342 dec $23
  103. 8344 dec $25
  104. 8346 jmp mvm4
  105. 8348 mvm5 rts
  106. 8350 dmvmem lda mvstrt+1
  107. 8352 sta $23
  108. 8354 lda mvdest+1
  109. 8356 sta $25
  110. 8358 lda mvend
  111. 8360 sec
  112. 8362 sbc mvstrt
  113. 8364 sta t2
  114. 8366 inc t2
  115. 8368 lda mvend+1
  116. 8370 sbc mvstrt+1
  117. 8372 ldy #0
  118. 8374 tax
  119. 8376 beq mvm7
  120. 8378 mvm6 lda ($22),y
  121. 8380 sta ($24),y
  122. 8382 iny
  123. 8384 bne mvm6
  124. 8386 inc $23
  125. 8388 inc $25
  126. 8390 dex
  127. 8392 bne mvm6
  128. 8394 mvm7 lda ($22),y
  129. 8396 sta ($24),y
  130. 8398 iny
  131. 8400 cpy t2
  132. 8402 bne mvm7
  133. 8404 rts
  134. 8406 ;
  135. 8408 mvstrt .word 0
  136. 8410 mvdest .word 0
  137. 8412 mvend .word 0
  138. 8414 ;
  139. 8416 memfil clc
  140. 8418 .byte $24
  141. 8420 memf1 sec
  142. 8422 sty t3
  143. 8424 sta t4
  144. 8426 bcc memf3
  145. 8428 memf2 lda $14
  146. 8430 sbc t3
  147. 8432 sta $14
  148. 8434 lda $15
  149. 8436 sbc t4
  150. 8438 sta $15
  151. 8440 bcc memf7
  152. 8442 inc $14
  153. 8444 bne memf3
  154. 8446 inc $15
  155. 8448 memf3 lda $14
  156. 8450 clc
  157. 8452 adc t3
  158. 8454 tay
  159. 8456 lda $15
  160. 8458 adc t4
  161. 8460 bcc memf4
  162. 8462 bne memf8
  163. 8464 tya
  164. 8466 bne memf8
  165. 8468 memf4 txa
  166. 8470 ldy #0
  167. 8472 ldx $15
  168. 8474 beq memf6
  169. 8476 memf5 sta (t3),y
  170. 8478 iny
  171. 8480 bne memf5
  172. 8482 inc t4
  173. 8484 dex
  174. 8486 bne memf5
  175. 8488 memf6 cpy $14
  176. 8490 beq memf7
  177. 8492 sta (t3),y
  178. 8494 iny
  179. 8496 bne memf6
  180. 8498 memf7 rts
  181. 8500 memf8 jmp $b248
  182. 8502 ;
  183. 8504 stuf jsr $ad8a
  184. 8506 jsr $b7f7
  185. 8508 pha
  186. 8510 tya
  187. 8512 pha
  188. 8514 jsr $79
  189. 8516 pha
  190. 8518 jsr $73
  191. 8520 jsr $ad8a
  192. 8522 jsr $b7f7
  193. 8524 jsr $79
  194. 8526 beq stuf1
  195. 8528 jsr $aefd
  196. 8530 jsr $b79e
  197. 8532 .byte $2c
  198. 8534 stuf1 ldx #0
  199. 8536 pla
  200. 8538 tay
  201. 8540 pla
  202. 8542 sta t3
  203. 8544 pla
  204. 8546 sta t4
  205. 8548 cpy #","
  206. 8550 beq memf2
  207. 8552 cpy #";"
  208. 8554 beq memf3
  209. 8556 jmp $af08
  210. 8558 ;
  211.